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(1) 56 DECLARAT 1ONS 
(1) 1 R/W PS 

(1) 40 SATSSS 

(1) 8 GETASG TESTS 
(1) PUTMSG TESTS 
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(1) 4 REG” CHECK 

(1) 4 PRIAT_FAIL 
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(1) 64 ACT 
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SEP=19 UETP.SRCJSATSSS10.MAR; 1 


TITLE $ATSSS10 = SATS SYSTEM SERVICE TESTS (SUCC S.C.) 
IDENT Woe ob: 


LRABRAAAAAASASLALEAALALAAALALASALSE ALARA ESSER EASE ERE SESE SAREE E EERE AREA EES SY 


;* 

@ 

3* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

:* ITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. 

:* RIGHTS RESERVED. 

3* OFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
3* N ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
:* ION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
3* T BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
~ OTHER PERSON. NO TITL 
te 

28 

;* 

;* 

;* 

7* 

7* 

3* 

;* 

** 


ANY —->} 


® 
® 
* 
® 
® 
*® 
® 
* 
cs 
E TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. * 
*® 
THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
ND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
* 

* 

* 

*® 

*® 

*® 

® 


SSSSsssessoooeeoooSeessS 
Ooo 


SOQoooocooooooooooooooooooooooooooooooooooooooo: 


A 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


FRR AERA AERA AAA RES 


;++ 
; FACILITY: SATS SYSTEM SERVICE TESTS 


; ABSTRACT: The SATSSS10 module tests the execution of the following 
; VMS system services: 


SGETMSG 
SPUTMSG 


; ENVIRONMENT: User mode image. 2 : 

; Needs CMKRNL erence and dynamically acquires other 
: privileges, as needed. 

; AUTHOR: Larry D. Jones, CREATION DATE: JULY, 1978 

> MODIFIED BY: 


v03-002 LD!0002 Larry D. Jones 14-Dec-1981 
Modified to conform to new SPUTMSG argument modification which 
made a BR out of range error in routine CHECK_RESULTS. 


v03-001 LDJ0001 Larry D. Jones 17-Sep-1980 
Modified to conform to new build command procedures. 


SOOSCSCSOOSOOOCOSOOSOSOOSOOSOSOOSOOCOOSOSOSOSOSOSSOSOOSOSOSOOSOSCSOOOOOSOOOOOOSOOOSoO 
PWN OOD NAVE WIN 9 OD NAME WN $$ S OOO NAU EWN 0 OD NOAM EW OO ONOU SE win 


MIMI BEE EELS PWN nonononononononony 2 2 


OOOSCSCOCSOOOOOOSOOSOOOOOOSOOOOOSOOSOOOOOOOSO SO 


SOSOOCOCOOOOOOOOOOOOOOOOOOOOoOSoSoS 
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y042000 DECLARATIONS Breer] 8Rs 81:53:2] PAXLUMS Macro vOe~d MAR: 1 ef 


«SBTTL DECLARATIONS 
; MACRO LIBRARY CALLS 


SPRVDEF er ues Gotti tiene 

Hatt MESSAGES UETP,116,<<TEXT, Into. > ; Ug P$_TEXT definition 
SSTSDEF definitions 

SEs PBEF 3 : ote message definitions 


SN NN NA AAAAAOOOO OTH 
FW" OOONO UE WI OOO~NO 
ee 


: Equated symbols 
8 8 WARNING = 9 ; warning severity value for msgs 
SUCCESS = ; peasens a ie EO aN a 
00 ERROR = ; 
000 INFO = : Jaterastion 2 “ <a 
000 SEVERE = 4 3 fatal 
44 3 
000 3; MACROS 
0000 ; 


| 8 7 
SATS$$10 = SATS SYSTEM SERVICE TESTS (SUCC S.C.) 1 mite ts gi 751 eye 
RATIONS 4 04:2 UET 


YST SM v04-00 Pp SA) 
v04=000 DECLARATION -SEP=19 :41 P. SRCISATSSS10.MAR:1 ous dy v0e 
0000 0 76 .PSECT RODATA,RD,NOWRT ,NOEXE,LONG 
9 £8 TEST_MOD_NAME : 
30 31 53 53 53 54 41 53 00" 00 7 TASCIC /SATSSS10/ ; needed for SATSMS message | 
09 0 TEST_MOD_NAME_D: 
53 53 53 54 41 53 00000071 "01069090" i 1 ~"“TASCIB /SATSSS$10/ : module name | 
19 TEST_MOD_BEGIN: 
6E 75 47 65 62 90" $619 8g ~TASCIC /begun/ 
, SO1F 84 TEST_MOD_SUCC 
6C 75 66 73 73 65 63 63 75 73 00" 001" 85 ~“TASCIC /successful/ 
002A 86 TEST_MOD_FAIL: 
64 65 6C 69 61 66 00" a Hy ~ TASCIC /failed/ 
0031 88 GETMSG: 
47 53 4D 54 45 47 00" 0031 89 -ASCIC /GETMSG/ 
0038 $90 PUTMSG: 
47 53 4D 54 55 50 00" 0038 91 -ASCIC /PUTMSG/ 
003F $92 CSI: 
21 20 74 73 65 54 B900905 7" 9105 9000" 003F 38 -ASCID \Test !AC service name !AC step 'UL failed.\ 
6E 20 65 63 69 76 72 65 73 20 43 41 004D 
Be be 68 Ge 69 61 6 30 Se Se 5h 50 Obes 
071 94 CS2: 
74 63 65 70 78 45 99000079"010E 0000" ea 95 -ASCID \Expected !AS = !XL received !AS = !XL\ 
4C 58 21 20 3 20 53 41 21 20 64 6 007F 
41 21 20 64 65 1 $8 53 30 $5 56 $5 oe 
09E 96 CS3: 
74 63 65 70 78 45 99000046" 0100000" SOgE 97 .ASCID \Expected !AS!UB = !XL received !AS'UB = !XL\ 
20 3D 20 42 55 21 53 41 21 20 64 65 OOAC 
64 65 76 69 65 63 65 72 9 4C 58 4 0088 
58 21 20 3D 20 42 55 21 53 41 21 20 00c4 
0D1 98 CS4 
74 63 65 70 78 45 00090009" 0100000" 0001 99 .ASCID \Expected= !AS!/-UETP-I-TEXT, Received= !AS\ 
45 55 2D 2F 21 53 41 21 29 30 64 65 OODF 
3 20 2c 54 58 45 54 oD 49 p 9 54 QOEB 
53 41 21 20 3D 64 65 76 69 65 63 65 if cox ake 
73 75 74 61 74 73 00000108'010E0000' 103 101 ad .ASCID \status\ 
68 74 67 6E 65 6C 00000119'010E0000" 11 § a .ASCID \Length\ 
52 44 41 54 55 4F 00000127°010E0000" O11F 105 | -ASCID \OUTADR\ 
120 1 é MSGID: 
007480E1 : : neeue -LONG UETPS$_DDB ; message ID used in the tests 
0000 ; 131 103 “ LONG «3 ; PUTMSG message vector 
4 bs 3 110 -LONG ETPS_TEXT 
SoseRs" 13D 06-112 “ADDRESS MESSAGEL 
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(SUCC S.C.) "9 


EM SERVICE TESTS 


SAT S5510 
v04-000 


«ASCIC /XUETP-DDB, UETINITOO DDB 0 !AS 00000000 00000000/ 


«ASCIC /RUETP-S, UETINITOO DDB 0 !AS 00000000 00000000/ 
-ASCIC /%UETP-S-DDB, UETINITOO DDB 0 !AS 00000000 00000000/ 


-ASCIC /2ZS-DDB, UVETINITOO DDB 0 TDA 00000000 00000000/ 


-ASCIC /UETINITOO DDB 0 TDA 00000000 00000000/ 
-ASCIC /%DDB, UVETINITOO DDB 0 TDA 00000000 00000000/ 
+ASCIC /%S, UETINITOO DDB 0 TDA 00000000 00000000/ 


-ASCIC /ZUETP, UETINITOO DDB 0 TDA 00000000 00000000/ 
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«ASCIC /2UETP=DDB, UETINITOO DDB 0 TDA 00000000 00000000/ 


-C.) "9 
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TEM SERVICE TESTS csuct S 


10 


SATS 
V04 


sASCIC /2UETP-S, UETINITOO DDB 0 TDA 00000000 00000000/ 


-ASCIC /2%UETP=S-DDB. UETINITOO DDB 0 TDA 00000000 00000000/ 


-ASCIC /ZTEST=-S-DDB, UETINITOO DDB 0 TDA 00000000 00000000/ 


1D /TEST/ 
T BINARY 


wn 


54 53 45 54 00000503°010E0000' 
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y04s000 DECLARATIONS ety 35322] LUETP SRCISATSSS10 MAR: 1 - hb 
507 170 ; | 
Pig ar .SBTTL R/wW PSECT 
000000 17¢ “PSECT RWDATA.RD,WRT,NOEXE, LONG | 
174 fPID: 
00000000 ? 1? CURRENT sh ONG 0 ; PID for this process 
00000000 4 177 "LONG ; = 3; ptr to current test case C 
008 159 REG_SAVE_AREA: CH 
00000044 000 180 SBLKL 15 : register save area cS 
O44 181 MOD_MSG_CODE: C$ 
00748009 Goce | ¢ aes aporiton’ UETPS_SATSMS ; test module message code for putmsg e3 
00000000' a948 184 TD ADDR ADRESS TEST_MOD_NAME cy 
00000019" Op4t 6 saceaal ADDRESS TEST_MOD_BEGIN ER 
00 0080 188 -BYTE 0 3 protection return byte for SETPRT GE 
051 189 PRIVMASK: GE 
00000000 00000000 0091 190 sab dean’ 0 : priv. mask GE 
00000000 028 136 entent , 0 ; change mode continue address 
00000065 005D 19% BLL 2 ; returned address's from SETPRT 
065 195 STATUS: 
00000000 065 196 at .LONG 0 
0969 198 : SGETMSG UETPS$_DDB,MSGLEN,BUFADR,O,OUTADR ; GETMSG parameter List 
00000005" 0069 ADDRESS § 
007480E1' 906 . ADDRESS UETPS_DDB 
00000285 ° 0071 - ADDRESS MSGLEN 
$0000000" 9079 “ADDRESS — 
itdetet 9070 os a [ADDRESS OUTADR 
0081 200  — $PUTMSG MSGVEC1,ACT.O : PUTMSG parameter List 
00000004" 0081 ADDRESS 4 
QOOO003DF* 0085 DRESS MSGVEC1 
00000355" 0089 DDRESS ACT 
00000000° 008D ADDRESS 0 
00000000' 34) i ens ADDRESS 0 
74 73 69 67 65 72 00000090 "91069009" is $$) " —« JASCID.«-\register R\ me 
A 05 REGNUM: wD 
00000000 4 : ai -LONG 0 3 register number Re 
444 634! AB 06 ; -LONG 512 3; buffer desc. fa 
0000083" OOAF .ADDRESS BUF ms 
+3 38 BUF : ms 
00000283 BLK 512 m6 
B 10 MESSAGEL: m7 
4! 8 1 -LONG 0 3 message desc. m8 
* 028 1 .ADDRESS BUF | m9 
BB 213 SERV_NAME: ME 
00000000 6H 14 -LONG 0 3 service name pointer MO 
| 
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R/W PSECT 


wwe 


gone 

SH 
41 44 54 000003F7°010E0000° 

00000000 ; 


Oo 

oO 

3 

J 
WHMMMMMMOODIVINAAAAMAONN 
PPV NWO Nw oD 


.LONG 0 


-LONG 0 


"LONG 


25 6, 
- ADDRESS 
286" 


-LONG 0 
-ADDRESS BUFADR+8 


-LONG 0 
_ ADDRESS 0 


.LONG 3 
-LONG UETPS_DDB 
-ADDRESS DEV_NAM 


"SASCID /TDA/ 


-LONG 0 


; message length parameter 


output address parameter 
GETMSG & PUTMSG buffer 
maximum message length 
bad string desc. 


expected string desc. 


PUTMSG test message vector 


test device name 


.correct message pointer 


srumunspasnnensthieanpatneinannsansteninatn -—4 
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v04 R/w@ PSECT $: “SEP=1 198¢ $4 4333: 


«PSECT SATSS919-RO UAT EXE LONG 
«SBTIL SATSSS1 


+ 
FUNCTIONAL DESCRIPTION: 


:$1 YAX/VMS Macro v04-00 : 9 
a1 LUETPr RC SgaTsesiomarn:1 2% (2, 


“o-oo 


oe oe oe oe oe oe oe oe 


After performing gone initial housekeeping, such as 
printing the ule begin message and acquiring needed or tv Leges. 
; the 4 em tal tor ces ore tested n each of their normal age 34 ons. 
; Detected failures are identified and an error message is printed 
on the terminal. Upon completion of the test a success or fail 
message is printed on the terminal. 


CALLING SEQUENCE: 
$ RUN SATSSS10 ... (DCL COMMAND) 


MEW OOO NOA UE WN (OOO NAME UO 0 


DDPRAED_P_DR_D GAA BP PPP LEEW 


5 + 

0 : INPUT PARAMETERS: 

° : none 

00 : IMPLICIT INPUTS: 
300 : none 
099 : OUTPUT PARAMETERS: 
Sind 85 noe 

909 6 : IMPLICIT OUTPUTS: 

4 § : Messages to SYSSOUTPUT are the only output from SATSSS10. 

444 A $ They are of the form: 

O05 7 : XUETP=-S-SATSMS, TEST MODULE SATSSS10 BEGUN ... (BEGIN MSG) 
00 73 3 ZUETP=-S-SATSMS, TEST MODULE SATSSS10 SUCCESSFUL ... — MSG) 
4 74 ; ZUETP-E-SATSMS, TEST MODULE SATSSS10 FAILED 5 (END MSG) 

o? 3 ZUETP-I-TEXT, ... (VARIABLE INFORMATION ABOUT A TEST MODULE FAILURE) 
09 , : COMPLETION CODES: 

0 79 : The SATSSS10 routine terminates with a $EXIT tot 

4 ? 3 operating system with a status code defined by UETPS. SATSMS. 

9 ; > SIDE EFFECTS: 

4 : none 

> 3 
i 
00 8 TEST_START SATSSS10 ; let the test begin 


sls 


StH 
coon 


ooue'cr 65 00. 


0198 'CF 


2S 


NO VOUT MOOT 
BIomMoe"Wan"eo 


SGETMSG tests 
The tests are executed in the following order: 


CSUVGCVTOVTOVOVUVTVUVTOVUVV VV VV VF VV VVC FV BO *Wvwn Pwr 


Sete Ge Se Ge Ge Ge Ge Ge Be Be Ss Ge Ge Be Be Ge Se Ge Ge Se Ge Ge Se Ss Se Se 
+ 


et ot at I BIOQOOOOOC 
QU FW" OOOnNOu 
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YSTEM SERVICE TESTS (SUCL S.C.) 16-SEP=1984 01:43:51 YAX/VMS Macro. v04=00 Page 1 m3 
3 BrSEp-198e Qu:saie1 LuerPrsncssarssstommar:1 9 9, Tal 
LIST ME 
JENTRY SATSSS10, 
CLRL WACURRENT_TC 


PUSHL  # ° 

PUSHAL W*TPID 

CALLS #2,G*SYSSWAKE 

CALLS #0,G*SYSSHIBER 
“TEST MOD_NAME_ 

CALLS #1.,G*SYSSSETPRN 


a SG_PRINT 
MOVAL W*TEST MOB SUCC,W*TMD ADDR 
Il gsuccess 40.8 -W*MOD_FSG_CODE 


PUSHL 
CALLS #1,W*REG_SAVE 
-SBTTL GETMSG TESTS 


STP # FLAG value message content 

STPO 0 no message 

STP1 1 only tex 

othe ¢ only mesg ID 

STP text and mesg ID 

STP4 4 only severity code 

STPS 5 severity code & text 

Lhe § severity code & mesg ID 

STP severity code, wesg ID, & text 

STP8 8 gnty facility name 

STP9 9 facility name & text 

STP10 10 facility name & mesg ID 

STP11 11 facility name, mesg ID, & text 

stele \¢ facility name & severity code 

STP1 1 facility name, severity code, & text 
STP14 14 facility name, severity code, & mesg ID 
STP15 15 every thing 


SATSSS10 = SATS SY 
v04 GETMSG tt 
oae't SICK ODE 30 
6 el Dd 44 
7 P< 2 , 

OSFA'CF | dO 

DD 

0198'CF 1 FB 
Q000'SF oD 71 
1A5°CF a. oo 77 
86'CF ° F 7¢ 
79° CF + 5 
0198'CF Of FB 3 
08D 
096 
olAsecr Ot DD 0096 
1A5°CF FB H 
oy 900 FB QOA 
4 A6é 

9E 


PB ooobs OOAe 


nn 


¢ SERVICE TESTS isuct 5” $.C.) 197360- 1388 8! 


MOVAL U°GETHSG, -WeSERV _NAME 
MOVAL winscTBL 
VL 
(R6)+,W°MSG 
PUSHL 
CALLS 
SCETRSG. 4 Ascibeamnse 
LEN=u"nscLEN,~ 
Breen “BUF ADR, ~ 
FL GSs =R7 
Dew AQUTADR 


OUTA 
FAIL =CHECE sD 
ii s,NoRMa CHECK 


Che 
CALLS #0 ott necK R SULTS™ 
MOVL 7 W"GETSGETMSGS. FLAGS 
PUSHL ‘ 
CALLS ,W*REG_ SAVE 
$CETRSG 


FAIL. ek Mo S§ ‘No NORMAL 
PUSHL #SS$_NORMA 
rts # WiReG. CHECK 
CALLS #0" UCHECK *Résu 
INCL W*CURR 
AOBLEQ #14,R7, Nel neg LOOP 
STEP=STEP+1§ 


AX/VMS_M 
UETP.SRC SATS$S10.MAR; 1 


; set sory tee @ 


v04-00 Page 


~~ 
a 
ae 


; set ta fnter 
; set fa elat fuse. value 
; get string pointer from table 


; Save a dummy parameter 
; save a register snapshot 


check for success 


check returned message 
set fla c.. 

save a 

save a register snapshot 
try .G form 

check for success 


check returned message 
bump the test number 
bump the flag & do it again 


. 
e¢ SERVICE TESTS (SUCC E sie. 1 mi iets gh: $3:31 ¥4 Ae Macro v04-00 Page 1 


SATSSS10 = SATS SYST 
9042000 PUTMSG TEST P=1984 RC SATSSS10. MAR; 1 

OAE tg -SBTTL PUTMSG TESTS 
AE 80a | 
AE 48 | : SPUTMSG tests | 
AE ‘} The tests are executed if the following order: | 
AE ‘3 ; STP # FLAG value message content 

OAE 1 : STP17 : no message 
AE § 3 STP1 only tex 
AE 2 3 STP1 ; only mesg ID 
AE 4; STP text and mesg ID 
AE 3§ 3 STP21 4 only severity code 

OAE 2$ ; STP § 5 severity code ; text 

OAE of 3 STP § severity code & mesg ID 

OAE 58 ; STP24 severity code, mesg ID, & text 
AE 59; STP25 8 qnty facility name 
AE 60 ; STP § 4 facility name & text 

OAE 61 ; STP 10 facility name & mesg ID 

OOAE 86 $ STP28 11 facility name, mesg ID, & text 

QOAE 63 ; athe? \¢ facility name & severity code 

OOAE 64 ; STP30 1 facility name, severity code, & text 

OOAE 65 ; STP31 14 Fac tt ity name, severity code, & mesg ID 
OAE 66 ; STP32 15 every thing 

OAE 67 ; 

OAR 369 : 

OAE 70 ° NEXT_TEST 

OA STP16 

0004 'CF } a oa eat ei6. oW*CURRENT_TC 
0198‘ CF 8 0B CA rte #1 s¥encé owe 
0B. MOVAL uPUTMSG-W SERV_RAM 3; set service name 


02BB'CF  0038' 
56 ©=6017D" 


oon 
mmo 
Oooo 


71 

fg MOVAL W*MSGT eh > set table pointer 

7 CLRL R7 3; set initial flag value 
74 PUTMSG_LOOP: 

7 - MOVL 


1 
CF 
CF 
57 
OSFA'CF 86 dO 
00 
01 


5 (R6)+,W*MSG ; get etritag pointer from table 
O3E9'CF 6 MOVW R7,W*MSGVEC1+10 3; set a new flag value 

7 PUSHL # 3; save *. dummy parameter 
0198‘ CF 7 3 save a register snapshot 


CALLS #1,W*REG_SAVE 
7? SPUTMSG_S ACTRTNeWeACT ss 
1 FAIL. on™ pale 3 check” for success 


Nisss NORMA 


OOOoooooocoo 


maha’ J 
wooo 


00000000'8F oD 
O1A5'CF op 4 CALLS #1, W*REG_ CHECK 
1 B 


Hf ane #0 3; save a dummy 

019B'CF ALLS . gi nes. SAVE 3; Save a register snapshot 
4 $PUTRSG 9 3 try orm 
5 FAIL_ ewetK sae NOR : check tar success 


he ORMAL 
s,HORM CHECK 
§ INCL Nth C ; bump the test number 
AOBLEQ #15,R7, SE PUIMSG. LOOP ; bump the flag & do it again 


Ger" g 
AE 39 OF 


YS PONG NNT ONO OVO LVI WOO — SuiasswmMmmemn 
oO 
. 


a t  BOOO TN NH HBMMOGVVOMOMOOO 


0198'C 
008D ' CF Gare" CF 


QOO0S*CF 811 
198° CF q 
SFA‘ CF § 

0198'CF 1 


03 al 4 
O1A5'CF 


Q 
01 


00000000 8F 
OIAS'CF 80° 


00000000'GF 04 
? 1¢ 01 


01 
44'°CF 


00000000°GF 01 


nm 
pe 
wm 


OOOO 09 NINN NNO AAU & EWI) SS eH 
FOONMMO WLS NOOOO LVI VNNVINVVNI TO "PPPrrir»r n~< 


M SERVICE TESTS (suc svc.) 197-360-1388 gh: 


PWN 


MOVL 
PUSHL 
CALLS vE 

SPUTMSG_S tert eegre - 


; test the facility name parameter 


3g 


NEXT_TEST 


mov #17,W*CURRENT_TC 
CALLS _#1,W*REG_SAVE 
(R6)+ “msG 


FACN RAR=U-TESt 
FAIL. CHECK SS$_NORMAL 
PUSHL ~ #SS$_NORMA 
CALLS #1 UREG. CHECK 


HL #0 
att #1,W*REG 


SAVE 
MOVAL w*fesT U™PUTSPUTMSGS. FACNAM 
SPUTMSG_G w*PUT 


FAIL WCHECK” ss8_ NORM 
assse NORMA 
#1 ,W*REG_ CHECK 


“  PUSHL W*TMD_ADDR 
PUSHL | aa ADDR 


get string pointer from table 
save a dummy 
save a reg snapshot 


try the _S form 
check for success 


save a —. 

save a Snapshot 
set facil ty name adr 
try the _G form 

check for success 


PUSHL W*MOD_MSG_CODE 

CALLS asst) “SP reSsicn 

INSV asts Ssv_ INHIB. NASG, #1,W*MOD_MSG_CODE 
PUSHL Shoe a E 


CALLS #1,G*SYSSEXIT 


titan 1) i 
| 
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YSTEM SERVICE TESTS (SUCC S.C.) 16-SEP-1984 01:43:51 YAX/VMS Macro 
: Epa 9be 4:33:41 LUETP. sRcasat 


SATSSS10 = SATS 
vOu=000 REG_SAV 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
i 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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10 
a -SBTTL REG_SAVE 
: FUNCTIONAL DESCRIPTION: 
: Subroutine to save R2-R11 in the register save location. 
: CALLING SEQUENCE: 
PU 3 save a dummy parameter 

CALLS #1,W*REG_SAVE ; save R2-R11 
INPUT PARAMETERS: 

NONE 


OUTPUT PARAMETERS: 
NONE 
REG_SAVE: 
OFFC WOR “M<R2,R3,R4,R5,R6,R7,R8,R9,R1I0,R11> 
OOO8'CF 14 AD 28 ee move #4e1 ;*K14(FP) .W°REG.SAVE_AREA 3; save the registers in the program 


.SBTTL REG_CHECK 


p++ 
3; FUNCTIONAL DESCRIPTION: 

Subroutine to test RO & R2-R11 for pre er content after a service 
execution. A enepenes is taken by the REG_SAVE routine at the 
beginning of each step and this routine iS executed after the 
services have been executed. 


CALLING SEQUENCE: 
PUSHL #SS$_XXXXXX 3; push expected RO contents 
CALLS #1,W*REG_CHECK ; execute this routine 


INPUT PARAMETERS: 
expected RO contents on the stack 


OUTPUT PARAMETERS: 
possible error messages printed using SPUTMSG 


DOP YP PrPEPEPEPEEEEErErr rr rrr rrr rPOOWODOOOOOOOOOO0O0000000 


OwWFNO Powwow mow NMUMNIMUIMMUMMMIVIMMMIMIMI MMIII OmOODOOWDOODOUIDIODaOawwawaaw 
Fe oe oe ot oF ot ot ot ot ot ot ot et UU UU UUUU UU UU Ure UeUUeUeUeUeUeUMUeUeUeUeUeUeUe eee 


PRR Mss BB BE EE EAN NNW NWIWI IP RIPONIPONPIPINININ "OOD 
FAR OQ ODNAUE WIN 2 0 OD NAME WN 9 OD NOAU EWN OOO NOU SW OOONOUS WOOO 


REG_CHECK: 
OFFC sm eWORD “M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> 
50 O04 AC 01 CMPL 4(AP) ,RO ; is this the right fail code? 
3 13 BEQL 10$ :; br if yes 
5 DD PUSHL RO : push received data 
04 AC OD PUSHL 4(AP) 3 push expected data 
0103°CF OF PUSHAL W*EXP : push the string variable 
O1E7"CF O03 FB 108 ALLS #3,W*PRINT_FAIL : print the error message 
0008'CF 14 AD , 29 8 : CMP C3 #4210,°X14(FP) ,W°REG_SAVE_AREA ; check all but RO 
4 r oAKe 
56 «53 soongees” 4 c3 : sve acre SAVE _AREA,R3,R6 ; calculate the register number 
7E 36 8} C ADDB #°X2,R6,-(SP) 3; set number past RO-R1 and save 
1 CA 01D BICL2 #3,R{ : backup to register boundrys 
53 CA D BICL #3,R3 


N 7 
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yous600 REG_CHECK oo EE 138e 82 :33:2] LOE TP SRCSSATSSS10 MAR: 1 . (1) v0. 

6} DD 0109 465 PUSHL Fi} ; push received data 

6 DD 138 196 (R3) ; push expected data 

OO9S'CF DF O1D 46 PUS W*REG ; set string pntr param. 
O1E7"CF O04 FB O1E1 468 LS #4,W*FRINT_FAIL ; print the error message 
glee $92 20$: 53 
04 O1F6 470 RET 


B 8 
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Vv04 PRINT_FAIL gree obec 4 :33:4] LOETP SRCISAT ATSSS10.MAR;1 (1) 
167 47 ~SBTTL PRINT_FAIL 
1E7 258 ; ss 
1E7 474 ; FUNCTIONAL DESCRIPTION: 
\ef rh : Subroutine to report failures using $PUTMSG 
1E7 13 ; CALLING SEQUENCE: 
1E? 478 ; Mode #1 PUSHL EXPECTED Mode He PUSHL REG_NUMBER 
Q1E7 479; USHL RECEIVED PUSHL EXPECTED 
QO1E7 480 ; PUSHAL gTRING PUSHL RECEIVED 
QO1E7 $3) ; CALLS #5,W*PRINT_FAIL PUSHAL STRING_VAR 
Q1E7 4 ¢ 4 CALLS #4 ,W*PRINT_FAIL 
pie? ‘8 ; INPUT PARAMETERS: 
1E7 484 ; Listed above 
Q1E7 ret : 
Q1E7 486 ; OUTPUT PARAMETERS: 
O1E7 487; an error message is printed using SPUTMSG 
O1E7 488 ; 
O1E7 489 ;-- 
O1E7 490 
O1E7 491 PRINT_FAIL: 
O03C O1E7 49 WORD “M<R2,R3,R 
O1E9 49 $FAO_S w*cst Tame SéAceL, W“MSGL ,ATEST_MOD_NAME ,W*SERV_NAME ,W*CURRENT_TC 
020A 494 SPUTRSG.§ WAMSGVEC :"print the message 
06 6C 91 O21B 495 CMP “tap Pe ; is Hs ° register message? 
21 13 O21E 496 BEOL br y* 
oseo 97 SFAO_S W*CS2,W*MESSAGEL ,W*MSGL,4(AP), BAP), GtAP 12 (AP) 
os 6 oszt $38 108 BRB 208 3 goto output message 
0241 500 SFAO_S W*CS3,W*MESSAGEL,W*MSGL,4(AP) ,16(AP) ,8(AP) ,4(AP),16(AP),12¢AP) 
0266 501 20$: 
ps0e 208 
0266 50 SPUTMSG_S W*MSGVEC ; print the message 
OO4C'CF OO2A'CF DE 0277 504 MOVAL “W*TEST_MOD FAIL ,W*TMD ADDR ; set failure message address 
0044'CF 03 00 02 ry 443 gb? Insv #ERROR=#0,93,W°MOD_MSG_CODE > set severity code 


vw 
oo0o 


FF44 CF 


59 
01 A9 


O3FA'DF 
O2BF ‘CF 


O2BF ' CF 
0111°CF 


OOouUooS 
Wwvroo™m 


O3FA* 


OVir> DWOUIO ODOWONn—--O 
“Coo MwWO™T WFTW" 


002A'CF 
00 02 


OOoooo 
Wir—OO0 


ak =] 


om 
NRO ODNAME WIN OOO NAUE WN 9 OONOAU SW O OONOUSWAR—OWOONOUS 


wwe ioieiolololololelql=) 
De eee eee or ot et at et et et ot oe ee 


eee sss 
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SERVICE TESTS (SUCC S.C.) 1 mth 9 9) :33'2] ees, 


=SEP=19 
~SBTTL CHECK_RESULTS 


++ 
; FUNCTIONAL DESCRIPTION: 
: Routine to check message content, 


: CALLING SEQUENCE: 
CALLS 


4 


INPUT PARAMETERS: 
MSGBUF = returned string 


OUTPUT PARAMETERS: 
NONE 


CHECK_RESULTS: 
» WORD 


25$: 


MOVAL B*1(R9) W*GOODATAtS ~—; 
MOVL —RB,WSGOODATA 


MOVL _- W°MSGLEN, W°BADATA ; 
SFAO_S W*CS1,W°MESSAGEL,W°MSGL,- 
#TEST MOD 
w*CURR 3 
SPUTMSG_S W°MSGVEC ; 
SFAO_S Q°CS4,W°MESSAGEL,W°MSGL,- 
r #BADATA 


SPUTMSG_S W*MSGVEC 


“NAME , W*SERV_NAME 
T7TC 


0 
~MAR;1 


= 
or 
So 


message length, and OUTADR. 


#0,W*°CHECK_RESULTS ; check returned message 


MSG = pointer to correct resultant counted string 


OUTADR = outadr parameter returned by the service 
MSGLEN = contains returned message length 


0 “M<R2,R3,R4,R5,R6,R7,R8,RI,RIO,R11> 
MOVZBL aW*MSG,R& : get the Length 
CMPB = W*MSGLEN,R8 : 1s the Length OK? 
BEQL 10$ ; br if yes 
PUSHL W*MSGLEN 3 push received 
PUSHL R8 3; push expected 
PUSHAL W*“LEN 3; push vite variable 
108 CALLS #3,W*PRINT_FAIL : print the failure 
CMPL W*OUTADR ,#*X100 ; is OUTADR param OK? 
BEQL : br if OK 
PUSHL W*OUTADR 3; push received 
USHL #*x100 3 push expected 
PUSHAL W*OUT 3 push aerine variable 
20$ CALLS #3,W*PRINT_FAIL : print the failure 
MOVL W*MSG,RI ; get message pointer 
CMPC3 RB,B*1(R9),W*BUFADR+8 =: check the string 
BNEQ ¢3$ ; br if not OK 
BRW 0$ ; BR if OK 


fill in good data desc. 
fill in bad data desc. 
fore Ist Line and 
print it 


form 2nd Line and 


>; print it 
MOVAL W*TEST_MOD_FAIL ,W*TMD apr”: set failure message address 
INSV #ERROR,#0,85,W*MOD_MSG_CODE ; set severity code 


30$: 
RET 
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04-000 AC} Breer 1o8e Baisasey FORTE eg eee ota: «| Pae 18, 
$e ~SBTTL ACT 
66 : FUNCTIONAL DESCRIPTION: 

5 3 Routine to take action on a PUTMSG call. The message is checked 

22 98 ; for proper content and printing is disabled. 
; ts > CALLING SEQUENCE: 

: 4 ; Entered via ACTRIN parameter specified with PUTMSG. 
33 2 : INPUT PARAMETERS: 

035 74 ; MSG = pointer to correct resultant counted string 

8 33 g ; MSGBUF = returned string 

03 - : OUTPUT PARAMETERS: 

0355 4 $ NONE 

Bb 

0355 & 

0355 2 § 

OFFC 0355 oR4,R5,R6,R7,R8,R9,R10,R11> 
56 O04 Al DO 0357 584 ; get 
O2BF'CF 66 DO 0358 585 : 
57 04 A6 00 0360 : 6 MOVL ‘ 3; get string pointer 
O2CF'CF 67 66 28 0364 7 movCc3 (R7) ,W*BUFADR+8 ; get string for CHECK_RESULTS 
FFI7 CF 00 FB 036A 588 CALLS #0 E RESULTS ; check the PUTMSG results 
50 00000000'8F 00 O36F 589 MOVL A . : don't really print it 
04 0376 590 RET 


AC 
WORD “M<R2,R3 
MOVL 4C(AP) ,R6 ; get the desc. address 
MOVL (R6) ,W*MSGLEN set length for CHECK_RESULTS 
4(R65 ,R7 
(R6),(R7 
»W*CHEC 
#SS$_AB 
| 
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= SATS SYSTEM SERVICE TESTS (suce S.C.) ut tt 9 8) 33:3) yy 
ACT EP=1984 04:22:41 (CUE 


Ooo 
ANIA ANIANIANI NAAN 


SSBoooSS SSS See eee NNN 
DD DD MNWIWINIWIWWIW WWI NNN 


pe ee ew wool olololololololq) 
WNW AAAI WIAA WIA 


Oo 


MS Bere -00 
- « SRCJSATSSS10.M 


AR; 1 
92 MOD_MSG_PRINT: 

3 ° ae oe 

94 


ARR RRRARARASALARALALALALALELS EASE EEE ESE EERE ESE EEE EEE CEES EET Pera | 


+ * 
* PRINTS THE TEST MODULE BEGUN/SUCCESSFUL/FAILED MESSAGES * 
® (USING THE PUTMSG MACRC). * 


® 
(AR RRAASAAAARALASASEALE ALES E SESE REE ESTERS ERE REESE RES CE CEES Eee 


PUTMSG <MOD_MSG_CODE,#2,TMN_ADDR,TMD_ADDR> ; PRINT MSG 
RSB : .e. AND RETURN TO CALLER 


EHMRTN: 


CAAA RRRALAAALAALARSALALALALASL ESAS ESAS TERE SEE ESE EER EEE REESE CEES 


a7 

« CHANGE MODE ROUTINE. THIS ROUTINE GETS CONTROL WHENEVER * 
. A CMKRNL, CMEXEC, OR CMSUP SYSTEM SERVICE IS ISSUED * 
+ BY THE MODE MACRO ('TO' OPTION). IT MERELY DOES ° 
* A JUMP INDIRECT ON A FIELD SET UP BY MODE. IT HAS . 
* THE EFFECT OF RETURNING TO THE END OF THE MODE * 
* MACRO EXPANSION. * 
tk ® 
® ® 


LARRRAAAASALAAAALAALALELEEESESSSER EERE EE SESE EERSTE ERE ESSERE SS 


«WORD 0 ; ENTRY MASK 
JMP @CHM_CONT ; RETURN TO MODE MACRO IN NEW MODE 


3; @ RET INSTR WILL BE ISSUED IN EXPANSION OF ‘MODE FROM, ....° MACRO 
- END SATSSS10 
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Symbol table BrSEE 1984 Bo sszie1 LOT eT eResEaesketocgan:1 ame 2 
90 09 & 03 

UETPS_DDB = 480E 
UETPS_SATSMS = 0074 4 
UETPS TEXT = 00741 5 
WARNING = 00000000 

beware oens we oceon $ 

! Psect synopsis ! 

$oeme oes moe aa a ceoce + 
PSECT name Allocation PSECT No. Attributes 
. ABS 00000000 -») 00 ¢ QO.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS$ 44 444 ( _ 1¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
RODATA 00000 ( 138 ) 8 ( ¢:} NOPIC USR CON REL LCL NOSHR NOEXE RD NOWRT NOVEC LONG 
RWDATA 444 ike & $§°} ( -) NOPIC USR CON REL LCL NOSHR NOEXE' RD WRT NOVEC LONG 
SA1SSS10 0000398 ( 923.) 04 ¢ 4.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC LONG 

doaenaereren ose ee enn an areca 
H Performance indicators : 

Phase Page faults CPU Time Elapsed Time 
Initialization $9 00:00:00.10 00:00:00.41 
Command processing 107 B80: 00.8 00:00:04.94 
Pass 1 263 0:00:06.4 00:00:16.24 
Symbol table sort 9 00:00:00.4 00:00:00.54 
Pass 2 14 B88 08.47 00:00:04.37 
Symbol table output 15 00:00:00.11 BB 8800 +36 
Psect synopsis output 00:00:00.03 00:00:00.0 
Cross-reference output 00:00:00.00 00:00:00.00 
Assembler run totals 56 00:00:10.02 00:00:26.86 


The working set Limit was 1350 pages. : 
41621 bytes (82 pages) of virtual memory were used to buffer the intermediate code. 
Teere were 20 pages of symbol table space allocated to hold 349 non-local and 8 local symbols. 
source lines were read in Pass 1, producing 27 object records in Pass 2. 
pages of virtual memory were used to define 34 macros. 


+ 
! Macro Library statistics ! 
+ 
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Macro Library name Macros defined 
_$255$DUA28: YETP 0B) ]UETA.MLB;1 10 
_8255$DUA28: svs-03% LIB.MLB; 0 
$255$DUA28: (SYSLIBJSTARLET.MLB;2 31 
TOTALS (all Libraries) 1 


508 GETS were required to define 31 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:SATSSS10/0BJ=0BJ$:SATSSS10 MSRC$:SATSSS10/UPDATE=(ENH$: SATSSS10) +EXECML$/LIB+L IB$:UETP/LIB 
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